% icrerea.m
% 2/17/96
%Modified by Dave Primo 7/2000

% run this file in matlab.  creates ab.dat and acu_real_7199.txt.

tind= find(chamber==2);
tind1 = zeros(Ns,1);
tind1(tind) = ones(size(tind));
t = t- tind1.*(HEndYear-BeginYear+1);



ayear = [(71:99)]';

ahou = a(1:29);
bhou = b(1:29);
asen = a(30:58);
bsen = b(30:58);

ab = [ayear, ahou, bhou, asen, bsen];
save ab.txt ab /ascii;


yreal = (y-aNs)./bNs;
xx = [chamber, t, icpsr, y, yreal];
save acu_real_7199.txt xx /ascii;

